home *** CD-ROM | disk | FTP | other *** search
- object Form27: TForm27
- Left = 337
- Top = 134
- BorderStyle = bsNone
- Caption = 'Arsa Ve Arazi Listesi'
- ClientHeight = 417
- ClientWidth = 593
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Picture.Data = {<image000.jpg>}
- Stretch = True
- OnMouseDown = Image1MouseDown
- end
- object Label1: TLabel
- Left = 32
- Top = 264
- Width = 42
- Height = 13
- Caption = 'Semt Ad�'
- Transparent = True
- end
- object Label2: TLabel
- Left = 152
- Top = 278
- Width = 53
- Height = 13
- Caption = 'Fiyat Aral���'
- Transparent = True
- end
- object Label3: TLabel
- Left = 32
- Top = 300
- Width = 70
- Height = 13
- Caption = '�lk Fiyat De�eri'
- Transparent = True
- end
- object Label4: TLabel
- Left = 32
- Top = 334
- Width = 84
- Height = 13
- Caption = '�kinci Fiyat De�eri'
- Transparent = True
- end
- object Label5: TLabel
- Left = 376
- Top = 282
- Width = 28
- Height = 13
- Caption = 'Aral���'
- Transparent = True
- end
- object Label6: TLabel
- Left = 248
- Top = 304
- Width = 43
- Height = 13
- Caption = '�lk De�er'
- Transparent = True
- end
- object Label7: TLabel
- Left = 248
- Top = 336
- Width = 57
- Height = 13
- Caption = '�kinci De�er'
- Transparent = True
- end
- object Image2: TImage
- Left = 352
- Top = 278
- Width = 13
- Height = 15
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Image3: TImage
- Left = 56
- Top = 358
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image002.jpg>}
- Visible = False
- end
- object Image4: TImage
- Left = 224
- Top = 358
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image003.jpg>}
- Visible = False
- end
- object Image5: TImage
- Left = 392
- Top = 358
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image004.jpg>}
- Visible = False
- end
- object Label8: TLabel
- Left = 64
- Top = 368
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Bul'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label8MouseDown
- OnMouseUp = Label8MouseUp
- end
- object Label9: TLabel
- Left = 232
- Top = 368
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'T�m�n� G�ster'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label9MouseDown
- OnMouseUp = Label9MouseUp
- end
- object Label10: TLabel
- Left = 400
- Top = 368
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yazd�r'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label10MouseDown
- OnMouseUp = Label10MouseUp
- end
- object Label11: TLabel
- Left = 440
- Top = 248
- Width = 116
- Height = 13
- Caption = 'Arama Se�ene�ini Se�in'
- Transparent = True
- end
- object Image6: TImage
- Left = 544
- Top = 40
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image005.jpg>}
- OnMouseDown = Image6MouseDown
- OnMouseUp = Image6MouseUp
- end
- object Image7: TImage
- Left = 544
- Top = 40
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image006.jpg>}
- Visible = False
- end
- object Label12: TLabel
- Left = 120
- Top = 313
- Width = 38
- Height = 13
- Caption = 'Label12'
- Transparent = True
- Visible = False
- end
- object Label13: TLabel
- Left = 120
- Top = 348
- Width = 38
- Height = 13
- Caption = 'Label13'
- Transparent = True
- Visible = False
- end
- object Label14: TLabel
- Left = 248
- Top = 264
- Width = 31
- Height = 13
- Caption = 'Durum'
- Transparent = True
- end
- object DBGrid1: TDBGrid
- Left = 40
- Top = 72
- Width = 513
- Height = 169
- DataSource = DataSource1
- Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDblClick = DBGrid1DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Semt'
- Width = 113
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyati'
- Width = 70
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Metre2'
- Width = 60
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Ada'
- Width = 66
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Parsel'
- Width = 60
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Pafta'
- Width = 54
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Imar'
- Width = 62
- Visible = True
- end>
- end
- object Edit1: TEdit
- Left = 120
- Top = 292
- Width = 121
- Height = 21
- MaxLength = 17
- TabOrder = 1
- OnExit = Edit1Exit
- OnKeyPress = Edit1KeyPress
- OnKeyUp = Edit1KeyUp
- end
- object Edit2: TEdit
- Left = 120
- Top = 326
- Width = 121
- Height = 21
- MaxLength = 17
- TabOrder = 2
- OnExit = Edit2Exit
- OnKeyPress = Edit1KeyPress
- OnKeyUp = Edit2KeyUp
- end
- object Edit3: TEdit
- Left = 312
- Top = 296
- Width = 121
- Height = 21
- MaxLength = 10
- TabOrder = 3
- OnKeyPress = Edit1KeyPress
- end
- object Edit4: TEdit
- Left = 312
- Top = 328
- Width = 121
- Height = 21
- MaxLength = 10
- TabOrder = 4
- OnKeyPress = Edit1KeyPress
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 120
- Top = 256
- Width = 121
- Height = 21
- KeyField = 'Semtler'
- ListField = 'Semtler'
- ListSource = DataSource2
- TabOrder = 5
- end
- object lb1: TListBox
- Left = 440
- Top = 261
- Width = 113
- Height = 97
- Hint = 'Se�ti�ini Se�ene�e G�re Arama Yapma'
- ItemHeight = 13
- Items.Strings = (
- 'Semt Ad�na G�re'
- 'Fiyat Aral���na G�re'
- 'Metre Aral���na G�re'
- 'Semt ve Fiyata G�re'
- 'Semt ve Metreye G�re'
- 'Fiyat ve Metreye G�re'
- 'T�m�ne G�re')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object ComboBox1: TComboBox
- Left = 312
- Top = 256
- Width = 121
- Height = 21
- ItemHeight = 13
- TabOrder = 7
- Text = 'T�m�'
- Items.Strings = (
- 'T�m�'
- 'Sat�ld�'
- 'Sat�lmad�'
- 'Kiraland�'
- 'Kiralanmad�')
- end
- object DataSource1: TDataSource
- DataSet = Query1
- Left = 24
- Top = 16
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 184
- Top = 24
- end
- object Table2: TTable
- Active = True
- TableName = 'semtler.db'
- Left = 216
- Top = 24
- object Table2No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table2Semtler: TStringField
- FieldName = 'Semtler'
- Size = 15
- end
- end
- object Query1: TQuery
- Active = True
- AutoRefresh = True
- SQL.Strings = (
- 'select * from arsa')
- Left = 80
- Top = 24
- object Query1No: TIntegerField
- FieldName = 'No'
- end
- object Query1Semt: TStringField
- FieldName = 'Semt'
- end
- object Query1Ada: TStringField
- FieldName = 'Ada'
- end
- object Query1Parsel: TStringField
- FieldName = 'Parsel'
- end
- object Query1Pafta: TStringField
- FieldName = 'Pafta'
- end
- object Query1Imar: TStringField
- FieldName = 'Imar'
- end
- object Query1Metre2: TStringField
- FieldName = 'Metre2'
- Size = 10
- end
- object Query1Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Query1Isim: TStringField
- FieldName = 'Isim'
- end
- object Query1Doviz: TStringField
- FieldName = 'Doviz'
- end
- object Query1Durum: TStringField
- FieldName = 'Durum'
- end
- object Query1Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Query1IsTelefonu: TStringField
- FieldName = 'IsTelefonu'
- end
- object Query1CepTelefonu: TStringField
- FieldName = 'CepTelefonu'
- end
- object Query1Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Query1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 100
- end
- end
- end
-